pro show,data0,gif=gifname,delay=delay
  data1=reform(data0)
  S=size(data1)
  dim=S[0]
  dimx=S[1]
  dimy=S[2]
  print,S
  print,dim
  if (dim eq 3) then begin
      print,'NOTE>>>>sizes must be 3D' 
  endif else begin
      print,'NOTE>>>>sizes must be 3D'
      goto, jumpout
  endelse
  num=S[4]  
  ;display=REBIN(data1,dimx,dimy,num)
  display=data1
  ;SET=[sizex,sizey,Frame-number]
  XINTERANIMATE, SET=[dimx, dimy, num], /SHOWLOAD
  FOR i=0,num-1 DO begin
    XINTERANIMATE, FRAME =i,IMAGE = display[*,*,i]
  endfor
  XINTERANIMATE,5,/KEEP_PIXMAPS
  

  jumpout:if (dim ne 3) then print,'NOTE>>>>nothing to be done!'
end
